if rec_lock()
   repl disp_code with kode,disp_name with name,disp_type with tipe,disp_unit with unit
   repl disp_qant with qant,trans_pric with trpric,sale_price with slpric,buy_unit with bunit
   repl sell_unit with sunit,st_refil with stref,st_max with stmax,cl_refil with clref
   repl cl_max with clmax,for_sale with Fsale,buy_sell_r with buyinsel,ST_ACT_TOT WITH TOTSEL
   repl healthline with HLINE,MED_S WITH MEDS
   repl new_price with nslpric
   repl date_acti with efetang
endif
unlock
            